{$CLEO .cm}
{$NOSOURCE}

0000:
:Start
0209: 2@ = random_int_in_ranges 0 5

if
2@ == 0
jf @MissingStep1  
4@ = -1091.6715
5@ = -979.3279 
6@ =  132.2447
jump @Abnormal
:MissingStep1
if
2@ == 1
jf @MissingStep2
4@ = -1094.6509 
5@ = -981.974 
6@ = 136.9725
jump @Abnormal
:MissingStep2
if
2@ == 2
jf @MissingStep3    
4@ = -1096.0175 
5@ = -1004.5994 
6@ = 134.1641
jump @Abnormal
:MissingStep3
if
2@ == 3
jf @MissingStep4 
4@ = -1106.5924  
5@ = -978.1555 
6@ = 132.023
jump @Abnormal
:MissingStep4
4@ = -1100.2009  
5@ = -994.3976 
6@ = 129.2187
jump @Abnormal
{:MissingStep5
if
2@ == 5
jf @MissingStep6  
4@ = -1458.6304
5@ = -1483.6443 
6@ = 103.6484
jump @Abnormal
:MissingStep6
if
2@ == 6
jf @MissingStep7  
4@ = -1448.3949   
5@ = -1576.7555 
6@ = 111.2617
jump @Abnormal
:MissingStep7
if
2@ == 7
jf @MissingStep8 
4@ = -1445.6914
5@ = -1593.5847 
6@ = 101.7578
jump @Abnormal
:MissingStep8
if
2@ == 8
jf @MissingStep9    
4@ = -1422.9629 
5@ = -1503.703 
6@ = 111.2358
jump @Abnormal
:MissingStep9
if
2@ == 9
jf @MissingStep10    
4@ = -1440.1202 
5@ = -1497.51 
6@ = 101.7436
jump @Abnormal
:MissingStep10
4@ = -1434.8525 
5@ = -1534.4087 
6@ = 101.7558
}                            

:Abnormal                     
1@ = Pickup.Create(#BODYARMOUR, 3, 4@, 5@, 6@)
018A: 7@ = create_checkpoint_at 4@ 5@ 6@
Marker.SetColor(7@, 3)


:Pogo_Pogo
wait 0
if
80A4:   actor $PLAYER_ACTOR sphere 0 in_cube_cornerA -1199.3984 -908.0161 127.234 cornerB -1000.7458 -1067.7887 1290.2187
jf @Pogi_Pogi
0215: destroy_pickup 1@
0164: disable_marker 7@
0A93: end_custom_thread


:Pogi_Pogi
if
Pickup.Picked_up(1@)
jf @Pogo_Pogo
0215: destroy_pickup 1@
0164: disable_marker 7@
wait 30000
jump @Start























